        sum = 1
        a=Inputbox("Give me a positive integer")
        For i = 1 To a
            sum = sum * i
        Next
        MsgBox(a&"!="&sum)
